home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / COMMUNIC / 0132.ZIP / INSTRUCT.PAS < prev    next >
Pascal/Delphi Source File  |  1985-11-02  |  2KB  |  48 lines
  1. PROCEDURE INSTRUCT;
  2.  
  3.   PROCEDURE SHOWCHAR (cc : char);
  4.     var c : byte;
  5.     begin
  6.       c := ord(cc);
  7.       if c in [0..31] then write ('ctrl-',chr(c+ord('@'))) else
  8.         if c = 32 then write ('<spc>') else
  9.           if cc in ['@'..'~'] then write (chr(c)) else
  10.             if c = 127 then write ('<del>') else write (c);
  11.     end;
  12.  
  13.   BEGIN
  14.     writeln (tab,' MODEM07 is a small remote communications program');
  15.     writeln (tab,' When started it acts simply as dumb terminal.');
  16.     writeln (tab,' The following commands are available : ');
  17.     writeln;
  18.     showchar(capture);
  19.     writeln (tab,' Toggles next capture. Initially inactive. When acting as a terminal');
  20.     writeln (tab,' all text received will be saved in a buffer. The buffer may be saved');
  21.     writeln (tab,' on a disk with the "keep" command below.');
  22.     showchar(keep);
  23.     writeln (tab,' Keep. Lest you save captured text in a disk file. You will be asked');
  24.     writeln (tab,' to name the file in which the text will be saved. The text buffer will');
  25.     writeln (tab,' be cleared if the text is saved successfully.');
  26.     showchar(receive);
  27.     writeln (tab,' Receive a file in Ward Christensen (xmodem) protocol. You will be');
  28.     writeln (tab,' asked for the name of the file to write into');
  29.     showchar(send);
  30.     writeln (tab,' Send a file in Ward Christensen (xmodem) protocol.');
  31.     showchar(view);
  32.     writeln (tab,' Toggle data viewing. Initially inactive.');
  33.     writeln (tab,' Data transmitted will be displayed in ascii or hex.');
  34.     showchar(literal);
  35.     writeln (tab,' Send literal character. A character typed after this character will');
  36.     writeln (tab,' be sent as is. In this way, characters that represent commands may');
  37.     writeln (tab,' be sent without being interpreted as a command.');
  38.     showchar(quit);
  39.     writeln (tab,' Quit. Exit program.');
  40.     writeln;
  41.   END;
  42. 
  43. G>
  44. being interpreted as a command.');
  45.     showchar(quit);
  46.     writeln (tab,' Quit. Exit program.');
  47.     writeln;
  48.   END;